Visual Basic Controls/Visual Basic Controls.iso/vbcontrol/fsscl20d/FORM2.FRM

Visual Basic Form | 1999-04-03 | 16.7 KB | 491 lines

VERSION 5.00
Object = "{75C038D3-EA57-11D2-A3BC-000000000000}#1.0#0"; "fsScroll5D.ocx"
Begin VB.Form frmLarge
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Large Data Entry Form"
   ClientHeight    =   3555
   ClientLeft      =   -45
   ClientTop       =   330
   ClientWidth     =   7680
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3555
   ScaleWidth      =   7680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin FishheadScroll.fsScroll fsScroll1
      Align           =   1  'Align Top
      Height          =   3555
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7680
      _ExtentX        =   13547
      _ExtentY        =   6271
      AdjustLeft      =   500
      MouseIcon       =   "Form2.frx":0000
      Begin VB.Frame Frame4
         Caption         =   "Witness:"
         Height          =   2745
         Left            =   90
         TabIndex        =   35
         Top             =   3285
         Width           =   7155
         Begin VB.TextBox Text24
            Height          =   315
            Left            =   1350
            TabIndex        =   49
            Top             =   2220
            Width           =   5625
         End
         Begin VB.TextBox Text23
            Height          =   315
            Left            =   1350
            TabIndex        =   47
            Top             =   1830
            Width           =   5625
         End
         Begin VB.TextBox Text21
            Height          =   315
            Left            =   5910
            TabIndex        =   45
            Top             =   1410
            Width           =   1065
         End
         Begin VB.ComboBox Combo3
            Height          =   315
            ItemData        =   "Form2.frx":031A
            Left            =   3750
            List            =   "Form2.frx":033C
            Style           =   2  'Dropdown List
            TabIndex        =   43
            Top             =   1410
            Width           =   1155
         End
         Begin VB.TextBox Text20
            Height          =   315
            Left            =   1350
            TabIndex        =   41
            Top             =   1410
            Width           =   1635
         End
         Begin VB.TextBox Text19
            Height          =   645
            Left            =   1350
            MultiLine       =   -1  'True
            TabIndex        =   39
            Top             =   660
            Width           =   5625
         End
         Begin VB.TextBox Text16
            Height          =   315
            Left            =   1350
            TabIndex        =   37
            Top             =   240
            Width           =   5625
         End
         Begin VB.Label Label27
            Caption         =   "E-Mail: "
            Height          =   345
            Left            =   180
            TabIndex        =   48
            Top             =   2250
            Width           =   765
         End
         Begin VB.Label Label26
            Caption         =   "Phone:"
            Height          =   315
            Left            =   180
            TabIndex        =   46
            Top             =   1920
            Width           =   795
         End
         Begin VB.Label Label24
            Caption         =   "Zip Code:"
            Height          =   255
            Left            =   5100
            TabIndex        =   44
            Top             =   1440
            Width           =   765
         End
         Begin VB.Label Label23
            Caption         =   "State:"
            Height          =   285
            Left            =   3150
            TabIndex        =   42
            Top             =   1470
            Width           =   555
         End
         Begin VB.Label Label22
            Caption         =   "City: "
            Height          =   345
            Left            =   180
            TabIndex        =   40
            Top             =   1470
            Width           =   885
         End
         Begin VB.Label Label21
            Caption         =   "Address: "
            Height          =   315
            Left            =   180
            TabIndex        =   38
            Top             =   660
            Width           =   765
         End
         Begin VB.Label Label18
            Caption         =   "Name: "
            Height          =   375
            Left            =   180
            TabIndex        =   36
            Top             =   300
            Width           =   675
         End
      End
      Begin VB.Frame Frame3
         Caption         =   "Claim:"
         Height          =   4455
         Left            =   7380
         TabIndex        =   50
         Top             =   3285
         Width           =   8715
         Begin VB.TextBox Text18
            Height          =   3045
            Left            =   1500
            MultiLine       =   -1  'True
            TabIndex        =   56
            Top             =   1200
            Width           =   6825
         End
         Begin VB.TextBox Text17
            Height          =   315
            Left            =   1500
            TabIndex        =   54
            Top             =   750
            Width           =   1785
         End
         Begin VB.TextBox Text15
            Height          =   315
            Left            =   1500
            TabIndex        =   52
            Top             =   330
            Width           =   5295
         End
         Begin VB.Label Label20
            Caption         =   "Description:"
            Height          =   285
            Left            =   180
            TabIndex        =   55
            Top             =   1230
            Width           =   1065
         End
         Begin VB.Label Label19
            Caption         =   "Filling Date:"
            Height          =   285
            Left            =   180
            TabIndex        =   53
            Top             =   750
            Width           =   885
         End
         Begin VB.Label Label17
            Caption         =   "Nature of Claim:"
            Height          =   255
            Left            =   180
            TabIndex        =   51
            Top             =   390
            Width           =   1335
         End
      End
      Begin VB.Frame Frame2
         Caption         =   "Employee Information:"
         Height          =   3165
         Left            =   7380
         TabIndex        =   18
         Top             =   45
         Width           =   7155
         Begin VB.TextBox Text14
            Height          =   315
            Left            =   1350
            TabIndex        =   20
            Top             =   240
            Width           =   5625
         End
         Begin VB.TextBox Text13
            Height          =   645
            Left            =   1350
            MultiLine       =   -1  'True
            TabIndex        =   22
            Top             =   660
            Width           =   5625
         End
         Begin VB.TextBox Text12
            Height          =   315
            Left            =   1350
            TabIndex        =   24
            Top             =   1410
            Width           =   1635
         End
         Begin VB.ComboBox Combo2
            Height          =   315
            ItemData        =   "Form2.frx":0368
            Left            =   3750
            List            =   "Form2.frx":038A
            Style           =   2  'Dropdown List
            TabIndex        =   26
            Top             =   1410
            Width           =   1155
         End
         Begin VB.TextBox Text11
            Height          =   315
            Left            =   5910
            TabIndex        =   28
            Top             =   1410
            Width           =   1065
         End
         Begin VB.TextBox Text10
            Height          =   315
            Left            =   1350
            TabIndex        =   30
            Top             =   1830
            Width           =   5625
         End
         Begin VB.TextBox Text9
            Height          =   315
            Left            =   1350
            TabIndex        =   32
            Top             =   2250
            Width           =   5625
         End
         Begin VB.TextBox Text8
            Height          =   315
            Left            =   1350
            TabIndex        =   34
            Top             =   2640
            Width           =   5625
         End
         Begin VB.Label Label16
            Caption         =   "Name: "
            Height          =   375
            Left            =   180
            TabIndex        =   19
            Top             =   300
            Width           =   675
         End
         Begin VB.Label Label15
            Caption         =   "Address: "
            Height          =   315
            Left            =   180
            TabIndex        =   21
            Top             =   660
            Width           =   765
         End
         Begin VB.Label Label14
            Caption         =   "City: "
            Height          =   345
            Left            =   180
            TabIndex        =   23
            Top             =   1470
            Width           =   885
         End
         Begin VB.Label Label13
            Caption         =   "State:"
            Height          =   285
            Left            =   3150
            TabIndex        =   25
            Top             =   1470
            Width           =   555
         End
         Begin VB.Label Label12
            Caption         =   "Zip Code:"
            Height          =   255
            Left            =   5100
            TabIndex        =   27
            Top             =   1440
            Width           =   765
         End
         Begin VB.Label Label11
            Caption         =   "Position:"
            Height          =   315
            Left            =   180
            TabIndex        =   29
            Top             =   1890
            Width           =   795
         End
         Begin VB.Label Label10
            Caption         =   "Phone:"
            Height          =   315
            Left            =   180
            TabIndex        =   31
            Top             =   2340
            Width           =   795
         End
         Begin VB.Label Label9
            Caption         =   "E-Mail: "
            Height          =   345
            Left            =   180
            TabIndex        =   33
            Top             =   2670
            Width           =   765
         End
      End
      Begin VB.Frame Frame1
         Caption         =   "Employer Information:"
         Height          =   3165
         Left            =   90
         TabIndex        =   1
         Top             =   45
         Width           =   7155
         Begin VB.TextBox Text7
            Height          =   315
            Left            =   1350
            TabIndex        =   17
            Top             =   2640
            Width           =   5625
         End
         Begin VB.TextBox Text6
            Height          =   315
            Left            =   1350
            TabIndex        =   15
            Top             =   2250
            Width           =   5625
         End
         Begin VB.TextBox Text5
            Height          =   315
            Left            =   1350
            TabIndex        =   13
            Top             =   1830
            Width           =   5625
         End
         Begin VB.TextBox Text4
            Height          =   315
            Left            =   5910
            TabIndex        =   11
            Top             =   1410
            Width           =   1065
         End
         Begin VB.ComboBox Combo1
            Height          =   315
            ItemData        =   "Form2.frx":03B6
            Left            =   3750
            List            =   "Form2.frx":03D8
            Style           =   2  'Dropdown List
            TabIndex        =   9
            Top             =   1410
            Width           =   1155
         End
         Begin VB.TextBox Text3
            Height          =   315
            Left            =   1350
            TabIndex        =   7
            Top             =   1410
            Width           =   1635
         End
         Begin VB.TextBox Text2
            Height          =   645
            Left            =   1350
            MultiLine       =   -1  'True
            TabIndex        =   5
            Top             =   660
            Width           =   5625
         End
         Begin VB.TextBox Text1
            Height          =   315
            Left            =   1350
            TabIndex        =   3
            Top             =   240
            Width           =   5625
         End
         Begin VB.Label Label8
            Caption         =   "Phone: "
            Height          =   345
            Left            =   180
            TabIndex        =   16
            Top             =   2670
            Width           =   765
         End
         Begin VB.Label Label7
            Caption         =   "Contact:"
            Height          =   315
            Left            =   180
            TabIndex        =   14
            Top             =   2340
            Width           =   795
         End
         Begin VB.Label Label6
            Caption         =   "Nature of Business:"
            Height          =   435
            Left            =   180
            TabIndex        =   12
            Top             =   1830
            Width           =   795
         End
         Begin VB.Label Label5
            Caption         =   "Zip Code:"
            Height          =   255
            Left            =   5100
            TabIndex        =   10
            Top             =   1440
            Width           =   765
         End
         Begin VB.Label Label4
            Caption         =   "State:"
            Height          =   285
            Left            =   3150
            TabIndex        =   8
            Top             =   1470
            Width           =   555
         End
         Begin VB.Label Label3
            Caption         =   "City: "
            Height          =   345
            Left            =   180
            TabIndex        =   6
            Top             =   1470
            Width           =   885
         End
         Begin VB.Label Label2
            Caption         =   "Address: "
            Height          =   315
            Left            =   180
            TabIndex        =   4
            Top             =   660
            Width           =   765
         End
         Begin VB.Label Label1
            Caption         =   "Name: "
            Height          =   375
            Left            =   180
            TabIndex        =   2
            Top             =   300
            Width           =   675
         End
      End
   End
Attribute VB_Name = "frmLarge"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
' This sample shows how to create a large data entry form
' that fills the entire client area.
Private Sub Command1_Click()
    Unload Me
End Sub
Private Sub Form_Load()
    ' These properties can be set at design or run time
    fsScroll1.Align = vbAlignTop     ' Force the control to take up the entire client area
    fsScroll1.ScrollBars = fsSBBoth  ' Show both scrollbars
    fsScroll1.AdjustBottom = 50      ' Allow extra space to view all contents
    fsScroll1.AdjustLeft = 1400      ' Allow extra space to view all contents
    fsScroll1.AdjustTop = 1000       ' Allow extra space to view all contents
    fsScroll1.AdjustRight = 300      ' Allow extra space to view all contents
End Sub
Private Sub Form_Resize()
    ' Ensure the control covers the entire client area
    fsScroll1.Height = Me.ScaleHeight
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Set frmLarge = Nothing
End Sub